Pioggia colore a caso

per colore.rosso
riporta acaso 255
fine


per colore.verde
riporta acaso 255
fine


per colore.blu
riporta acaso 255
fine


per colore.a.caso
riporta (lista colore.rosso colore.verde colore.blu)
fine


per grigio
riporta acaso 255
fine


per colore.grigio
as "grigio grigio
riporta (lista :grigio :grigio :grigio)
fine


per goccia.a.caso :raggio.massimo
as "raggio acaso :raggio.massimo
spessore :raggio
ascolpenna colore.a.caso
scripunto dove
aspetta :tempo
fine


per pioggia.colore.a.caso
ripeti 30 [ascolsfondo colore.a.caso ps goccia.a.caso 500]
fine


tarta.apparecchia
tarta.primo.piano
as "tempo 1000
pioggia.colore.a.caso